home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / dbase / FotoBestellung.lha / FotoBestellung / Install FotoBestellung < prev    next >
Text File  |  1996-09-05  |  2KB  |  81 lines
  1.  
  2. (set wrongOS   "Sie scheinen eine Kickstart unter 2.1 benutzen. Das gibt ein großes Problem, weil dann MUI und mithin FotoBestellung nicht funktionieren. Sollten Sie sowieso aufrüsten wollen, legen Sie sich am besten Kickstart/Workbench 3.1 zu.\n")
  3. (set wrongMUI  "Sie haben ein MUI unter 3.1.\nFotoBestellung braucht für BubbleHelp mindestens diese MUI-Version. Wenn Sie FotoBestellung jetzt weiter installieren, wird es nicht funktionieren bis MUI 3.1 vorhanden ist.\n")
  4. (set noMUI     "Sie haben wohl noch nie was von MUI gehört?\nFotoBestellung braucht mindestens MUI 3.1. Wenn Sie FotoBestellung jetzt weiter installieren, wird es nicht funktionieren bis MUI 3.1 vorhanden ist.\n")
  5.  
  6. (set OSVersion   (/ (getversion) 65536))
  7. (set WBVersion   (/ (getversion "version.library" (resident)) 65536))
  8. (if (< OSVersion 38)
  9.    (message wrongOS)
  10. )
  11.  
  12. (if (exists ("Libs:muimaster.library"))
  13.    (
  14.       (set muiver (/ (getversion "Libs:MUIMASTER.library") 65536))
  15.       (if (< muiver 12) (message wrongMUI))
  16.    )
  17.    (
  18.       (message noMUI)
  19.    )
  20. )
  21.  
  22.  
  23. (set @default-dest "Work:")
  24. (set @default-dest
  25.    (askdir
  26.       (prompt #destdir)
  27.       (help @askdir-help)
  28.       (default @default-dest)
  29.    )
  30. )
  31.  
  32. (set @default-dest (expandpath @default-dest))
  33. (set destination (tackon @default-dest "FotoBestellung"))
  34.  
  35. (makedir destination
  36.    (prompt "Programm-Verzeichnis wird erstellt")
  37.    (help @makedir-help)
  38.    (infos)
  39. )
  40.  
  41. (complete 25)
  42. (copyfiles
  43.    (prompt "Kopiere Hauptprogramm, Dokumentation und Vorlage")
  44.    (help @copyfiles-help)
  45.    (source "")
  46.    (pattern "(Foto#?|#?.formular)")
  47.    (dest destination)
  48.    (infos)
  49.    (confirm)
  50. )
  51.  
  52. (complete 50)
  53. (
  54.    (copylib
  55.       (prompt "Kopiere NoFrag.Library")
  56.       (help @copylib-help)
  57.       (source "/libs/NoFrag.library")
  58.       (dest "LIBS:")
  59.       (confirm)
  60.    )
  61.    (copylib
  62.       (prompt "Kopiere ReqTools.Library")
  63.       (help @copylib-help)
  64.       (source "/libs/ReqTools.library")
  65.       (dest "LIBS:")
  66.       (confirm)
  67.    )
  68. )
  69.  
  70. (complete 75)
  71. (copyfiles
  72.    (prompt "Kopiere Konfigurationsdateien")
  73.    (help @copyfiles-help)
  74.    (source "/envarc")
  75.    (pattern "Photo#?")
  76.    (dest "envarc:mui")
  77.    (infos)
  78.    (confirm)
  79. )
  80.  
  81.